﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit1") <> "" Then

Dim list_,article_,discuss_,title_,bbslist_,topicmin_,topicmax_,replymin_,replymax_,numhit_,numbbshit_
list_=Request.Form("numlist")
article_=Request.Form("numarticle")
discuss_=Request.Form("numdiscuss")
title_=Request.Form("numtitle")
bbslist_=Request.Form("numbbslist")
topicmin_=Request.Form("numtopicmin")
topicmax_=Request.Form("numtopicmax")
replymin_=Request.Form("numreplymin")
replymax_=Request.Form("numreplymax")
numhit_=Request.Form("numhit")
numbbshit_=Request.Form("numbbshit")
If Not IsNumeric(list_&article_&discuss_&title_&bbslist_&topicmin_&topicmax_&replymin_&replymax_&numhit_&numbbshit_) Then
	Call Error2("<card title='出错'><p>请输入数字！<br/><a href=""num.asp?sid="&sid&""">返回修改</a>")
End If

if numhit_>4 Or numbbshit_>4 then
	Call Error2("<card title='出错'><p>点击种子大于4效果太夸张！设为2最合适<br/><a href=""num.asp?sid="&sid&""">返回修改</a>")
end if

'----------------------------------------------------------------
'	生成num.asp文件
'----------------------------------------------------------------
dim HU_Config,HU_File

HU_File= "../../config/num.asp"'生成num.asp文件路径

HU_Config="<"&"%"
HU_Config=HU_Config+chr(13)&chr(10)&"numtitle="""&int(title_)&""" '标题显示字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numlist="""&int(list_)&""" '文章列表数"
HU_Config=HU_Config+chr(13)&chr(10)&"numarticle="""&int(article_)&""" '文章每页字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numdiscuss="""&int(discuss_)&""" '文章评论最少字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numhit="""&int(numhit_)&""" '文章点击种子"
HU_Config=HU_Config+chr(13)&chr(10)&"numbbslist="""&int(bbslist_)&""" '论坛列表数"
HU_Config=HU_Config+chr(13)&chr(10)&"numtopicmin="""&int(topicmin_)&""" '帖子最少字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numtopicmax="""&int(topicmax_)&""" '帖子最多字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numreplymin="""&int(replymin_)&""" '回帖最少字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numreplymax="""&int(replymax_)&""" '回帖最多字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numbbshit="""&int(numbbshit_)&""" '帖子点击种子"
HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
Call savetofile(HU_Config,HU_File)
Response.Write "<meta http-equiv=""refresh"" content=""1;url=index.asp?sid="&sid&"""><title>网站字数配置</title></head><body><div class=""main320"">"
Response.Write "成功设置！正在返回..."
else%>
<title>网站字数配置</title></head><body><div class="main400">
<form method="post" action="num.asp">
<table>
<tr><td colspan="2">【所有栏目】</td></tr>
<tr><td>标题显示长度</td><td><input name="numtitle" type="text" value="<%=numtitle%>"/></td></tr>
<tr><td colspan="2">【文章栏目】</td></tr>
<tr><td>文章列表数</td><td><input name="numlist" type="text" value="<%=numlist%>"/></td></tr>
<tr><td>文章每页字数</td><td><input name="numarticle" type="text" value="<%=numarticle%>"/></td></tr>
<tr><td>文章评论最少字数</td><td><input name="numdiscuss" type="text" value="<%=numdiscuss%>"/></td></tr>
<tr><td>文章点击种子</td><td><input name="numhit" type="text" value="<%=numhit%>"/></td></tr>
<tr><td colspan="2">【论坛栏目】</td></tr>
<tr><td>论坛列表数</td><td><input name="numbbslist" type="text" value="<%=numbbslist%>"/></td></tr>
<tr><td>帖子最少字数</td><td><input name="numtopicmin" type="text" value="<%=numtopicmin%>"/></td></tr>
<tr><td>帖子最多字数</td><td><input name="numtopicmax" type="text" value="<%=numtopicmax%>"/></td></tr>
<tr><td>回帖最少字数</td><td><input name="numreplymin" type="text" value="<%=numreplymin%>"/></td></tr>
<tr><td>回帖最多字数</td><td><input name="numreplymax" type="text" value="<%=numreplymax%>"/></td></tr>
<tr><td>帖子点击种子</td><td><input name="numbbshit" type="text" value="<%=numbbshit%>"/></td></tr>
</table>
<input type="submit" value="保存配置"/>
<input type="hidden" name="submit1" value="1"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
</form>
温馨提示:<br/>
1、点击种子:大于0则表示点击率开启作弊。如果设为3，点击率会随机加上1~3<br/>
2、帖子目前采用微博模式，限定字数，有助于提高论坛活跃度
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last2%>